Op zoek naar een dialoog

"; $datm=date("Y-m-d H:i:s", time()); $rfer_srvr=$_SERVER['SERVER_NAME']; $rfer_url=$_SERVER['HTTP_REFERER']; if ($rfer_url == null) { $rfer_url=$rfer_srvr; } $userip=$_SERVER['REMOTE_ADDR']; // echo "
RFER SRVR ".$rfer_srvr." RFER URL ".$rfer_url; require_once ("conv.php"); require_once ("config.php"); require_once ("bwrk-bzkr-func.php"); require_once ("xtrt-aiml-func.php"); require_once ("xtrt-xxxx-func.php"); require_once ("bepl-spec-func.php"); // echo "
INVR CHBT ".$invr_chbt."INVR CORP ".$invr_corp." INVR LGRM ".$invr_lgrm." INVR TAAL ".$invr_taal; ?> "; if ($invr_chbt == null) { $invr_chbt="semantus"; } if ($invr_corp == null) { $invr_corp = "semanta"; } ////////////////////////////////////////////////// // echo "

">
Zoektekst<? echo $invr_lgrm; ?>

Met een zoekwoord kunt u kijken of uw vraag direct gekoppeld kan worden met een kennisdomein, geprekspartner, corpus of vertegenwoordiger.

Vraag het eerst aan Semantus"; $data_rslt=xtrt_xxxx($invr_lgrm,"nederlands","data",12); // print_r($data_rslt); foreach($data_rslt as $data_key => $data_val) { if (count($data_rslt) > 0 ) { $data_itms=explode("!!",$data_key); // echo "
TITLES KEY ".$data_key." VAL ".$data_val; $data_taal=$data_itms[1]; $data_corp=$data_itms[2]; $corp_array[$data_corp]=$corp_array[$corp_data]+1; $data_cont=$data_itms[3]; $data_link=$data_itms[4]; $rslt_array[$data_link]=$rslt_array[$data_link]+1; // echo "
DATA CORP ".$data_corp." DATA LINK ".urlencode($data_link); if ($data_link != null) { // echo "
niet null DATA CORP ".$data_corp." DATA LINK ".urlencode($data_link); if (substr($data_cont,0,7) == "./data/" and substr($data_link,0,7) != "./data/") { if ($drelt != $data_link) { $drelt=$data_link; $sdata_link=str_replace(" ","+",$data_link); $ldata_link="".$data_link.""; $spec_rslt=bepl_spec($data_link); // echo "
COUNTER SPEC RSLT ".count($spec_rslt); $spec_dtls=explode(">",$spec_rslt); foreach($spec_dtls as $spec_key => $spec_val) { if (spec_dtls[1] != null) { $spec_dtls=explode("!!",$spec_val); // echo ""; echo ""; } } echo ""; } } } } } // print_r($rslt_array); if (count($rslt_array) > 0) { echo "

".$spec_dtls[1]."

".$spec_val."

".$ldata_link."

"; foreach($rslt_array as $rslt_key => $rslt_val) { $word_dtls=explode(" ",$rslt_key); foreach($word_dtls as $word_key => $word_val) { if (strlen($word_val) > 0) { $word_array[$word_val]=$word_array[$word_val]+1; } } $data_rslt=xtrt_xxxx($rslt_key,"nederlands","data"); // print_r($data_rslt); foreach($data_rslt as $data_key => $data_val) { if (count($data_rslt) > 0 ) { // echo "
DATA KEY ".$data_key." VAL ".$data_val; $data_taal=$data_itms[1]; $data_corp=$data_itms[2]; $corp_array[$data_corp]=$corp_array[$corp_data]+1; $data_cont=$data_itms[3]; $data_link=$data_itms[4]; // $rslt_array[$data_link]=$rslt_array[$data_link]+1; // echo "
DATA CORP ".$data_corp." DATA LINK ".urlencode($data_link); if ($data_link != null) { // echo "
niet null DATA CORP ".$data_corp." DATA LINK ".urlencode($data_link); if (substr($data_cont,0,7) == "./data/" and substr($data_link,0,7) != "./data/") { if ($drelt != $data_link) { $drelt=$data_link; $ldata_link="".$data_link.""; echo "is dit het

"; } } } } } } } echo "

".$ldata_link."

"; ///////////////// SMTA AIML ////////// $sinvr_bzv1=str_replace(" ","+",$invr_bzv1); $invr_bzv1=trim($invr_bzv1); // echo "
Vraag van Pandora bot ".$invr_bzv1; $qstn_rslt=xtrt_aiml($invr_bzv1); // echo "
Dit kan ".$invr_chbt." over ".$invrbzv1." ook nog zeggen
"; echo ""; $sw=0; foreach($qstn_rslt as $aiml_key => $aiml_val) { // echo "
AIML KEY ".$aiml_key; if ($sw == 0) { $sw=1; } if ($sw ==1 and count($qstn_rslt) > 1) { $aiml_itms=explode("@",$aiml_key); // print_r($aiml_itms); $aiml_ptrn=$aiml_itms[1]; $aiml_tmpl=$aiml_itms[2]; $aiml_aiml=$aiml_itms[3]; if($aiml_aiml == null) { $aiml_aiml="generiek"; } similar_text($aiml_ptrn,$invr_bzv1, $ptrn_perc); similar_text($aiml_tmpl,$invr_bzv1, $tmpl_perc); // echo "
AIML PTRN ".$aiml_ptrn."AIML TMPL ".$aiml_tmpl; $ptrn_perc=round ($ptrn_perc, 0); $tmpl_perc=round ($tmpl_perc, 0); if($ptrn_perc > 0) { $antw_tabl[$ptrn_perc."@".$tmpl_perc."@".$aiml_ptrn."@".$aiml_tmpl]=$antw_tabl[$ptrn_perc."@".$tmpl_perc."@".$aiml_ptrn."@".$aiml_tmpl]+1; $caiml_aiml= "".$aiml_aiml.""; if ($ptrn_perc == "100") { $tmpl_dspl=substr($aiml_tmpl,0,64); $ptrn_dspl=$aiml_ptrn; // echo ""; } else { $tmpl_dspl=substr($aiml_tmpl,0,64); $ptrn_dspl=$aiml_ptrn; // echo ""; } } } } echo "

Bron	Uiting	Reactie
".$aiml_aiml."	".$ptrn_perc."% ".$tmpl_perc."%	".$aiml_ptrn." ".substr($aiml_tmpl,0,64)."...
".$aiml_aiml."	".$ptrn_perc."% ".$tmpl_perc."%	".$aiml_ptrn." ".substr($aiml_tmpl,0,64)."...

"; echo ""; // print_r($antw_tabl); ksort($antw_tabl); foreach($antw_tabl as $antw_key => $antw_val) { $antw_dtls=explode("@",$antw_key); // print_r($antw_dtls); $pattern=$invr_bzv1; $altn_ptrn=$antw_dtls[2]; $template=$antw_dtls[3]; // echo "
>PATTERN ".$pattern." TEMPLATE ".$template; $dspl_antw=str_replace("seeker",$invr_name,$template); $dspl_antw=str_replace("xxxx","web master",$dspl_antw); $dspl_antw=str_replace("gesprekspartner",$invr_chbt,$dspl_antw); $dspl_antw=str_replace("invrvrag",$say,$dspl_antw); $dspl_antw=str_replace("invrmin1",$invr_min1,$dspl_antw); $dspl_antw=str_replace("invrdatm",$datm_datm,$dspl_antw); $dspl_antw=str_replace("invrjaar",$datm_jaar,$dspl_antw); $dspl_antw=str_replace("invrmand",$datm_mand,$dspl_antw); $dspl_antw=str_replace("invrtime",$datm_time,$dspl_antw); $dspl_antw=str_replace("invrwkdg",$weekdag,$dspl_antw); $dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw); $dspl_antw=str_replace("invrchbt",$invr_chbt,$dspl_antw); $dspl_antw=str_replace("invrbzkr",$invr_bzkr,$dspl_antw); $dspl_antw=str_replace("invrname",$invr_name,$dspl_antw); $dspl_antw=str_replace("invrbzv1",$invr_bzv1,$dspl_antw); $dspl_antw=str_replace("invrbzv2",$invr_bzv2,$dspl_antw); $dspl_antw=str_replace("invrsmdm",$invr_smdm,$dspl_antw); $dspl_antw=str_replace("invrcont",$invr_cont,$dspl_antw); $dspl_antw=str_replace("invrhttp",$invr_ipad,$dspl_antw); $dspl_antw=str_replace("invripad",$invr_ipad,$dspl_antw); $aiml_rctie=$dspl_antw; // echo ""; $chbt_aiml="<category><pattern>".$pattern."</pattern><template>".$dspl_antw."</template></category>"; $altn_aiml="<category><pattern>".$altn_ptrn."</pattern><template>".$dspl_antw."</template></category>"; echo ""; } echo "

".$aiml_rctie."
".$chbt_aiml."	".$altn_aiml."

"; echo ""; echo ""; // echo ""; // echo ""; echo "

"; $invr_lgrm=$altn_ptrn."".$dspl_antw; $plce_hldr=$dspl_antw; $chbt_clor=strlen($dspl_antw) ; ?>